Top 10k strings from Derby Day (1982)(CRL Group)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
3 Automatic selection of 2 Parade Ring 2 ;"Press 'Y' if correct 'N' if not" 2 ,q,a,q,q,q,q 1 z;" Basic program" 1 w(f)=w(f+1 1 w(f)=w(f)-l*10 1 version=4 1 version=3 1 sound=sound+.25 1 r,s,r,s,r,s,r,s 1 c,c,b,j,m,j,f,g 1 c,c,b,j,m,j, 1 c,c,b,f,j,m,m,j 1 c,c,b,f,f,f,f,f 1 bkr=aw+bw+cw+dw+ew 1 bkr=aa+bb+cc+dd+ee 1 a,a,a,s,r,s,r,s 1 YOU CAN'T AFFORD IT-BET AGAIN 1 WIN OVER `1 1 WAITING FOR PHOTO FOR PLACES 1 SUB-ROUTINE 1 START OF RACE 1 SIZE OF PROGRAM ROUTINE 1 SET-UP INITIAL ARRAYS 1 SET INITIAL VALUES 1 SELECT RUNNERS + ODDS 1 SELECT RUNNERS & ODDS 1 RACE ROUTINE 1 RACE DAY OVER 1 PRINT WINNER 1 PLAYER NAME SUB-ROUTINE 1 No more bets - lets start race 1 LTERNATIVE 3 1 LOST ALL MONEY 1 LOAD HORSES 1 INTRODUCTION 1 HORSE PARADE-BOOKMAKER 1 ENTER HORSES NAMES 1 ENTER DATA FOR 21 CHARS 1 ENTER CONSTANTS 1 END OF RACE 1 END OF BOOKMAKER 1 END OF BET SUB-ROUTINE 1 END NAME ROUTINE 1 DETERMINE PLACES 1 DEFINE USER GRAPHICS 1 BOOKMAKER DISPLAY 1 BACKGROUND ROUTINE-RACE 1 ALTERNATIVE 2 1 ALTERNATIVE 1 1 ALTERNATIVE 1 ACCEPT PLAYERS NAMES 1 ACCEPT BETS & DISPLAY 1 ;l$;es;p$;" " 1 ;l$;ee;p$; 1 ;l$;ds;p$;" " 1 ;l$;dd;p$; 1 ;l$;cs;p$;" " 1 ;l$;cc;p$; 1 ;l$;bs;p$;" " 1 ;l$;bb;p$; 1 ;l$;as;p$;" " 1 ;l$;aa;p$; 1 ;"Value of Stake"; 1 ;"Sorry, I said 1 to 5 players." 1 ;"RACE ";r; 1 ;"Press 'y' for another game." 1 ;"Please tell me their name(s) - " 1 ;"Please enter odds for each horse" 1 ;"Please enter names of 5 horses " 1 ;"Player No.";h;" is " 1 ;"O.K. ";p;" person(s) want to play." 1 ;"No. 5 is the WINNER" 1 ;"No. 4 is the WINNER" 1 ;"No. 3 is the WINNER" 1 ;"No. 2 is the WINNER" 1 ;"No. 1 is the WINNER" 1 ;"If he'd stayed you'd have had;-" 1 ;"Horse No.? (1 1 ;"DERBY DAY" 1 ;"CHOOSE VERSION - Press 1 to 4" 1 ;"5 ";Q$(r(5 1 ;"4 ";Q$(r(4 1 ;"3 ";Q$(r(3 1 ;"2 ";Q$(r(2 1 ;"1 ";Q$(r(1 1 ;"(Maximum 2 digits for each No. " 1 ;"(Both figures required - 1 ;" the bookmaker has left!...." 1 ;" e.g. 4/1 enter 4 then 1 1 ;" between you!" 1 ;" You have won over ";l$;"100,000";p$ 1 ;" Wins ";l$;ew;p$ 1 ;" Wins ";l$;dw;p$ 1 ;" Wins ";l$;cw;p$ 1 ;" Wins ";l$;bw;p$ 1 ;" Wins ";l$;aw;p$ 1 ;" Well done! " 1 ;" Unfortunately it looks as if" 1 ;" Press 'y' for yes" 1 ;" Player (1 to 5) or (9 to end) " 1 ;" O.K. Hope you enjoyed the game." 1 ;" Loses ";l$;ew;p$ 1 ;" Loses ";l$;dw;p$ 1 ;" Loses ";l$;cw;p$ 1 ;" Loses ";l$;bw;p$ 1 ;" Loses ";l$;aw;p$ 1 ;" JOCKEYS HANDICAP " 1 ;" HONEST CLIVE " 1 ;" (Note:- In all versions BETS are only accepted in either `'s or p's (option on next screen) and winnings are rounded UP to the nearest ` or p.)" 1 ;" (Maximum 10 letters each.)" 1 ;" ";l$;ee;p$ 1 ;" ";l$;dd;p$: 1 ;" ";l$;cc;p$: 1 ;" ";l$;bb;p$: 1 ;" ";l$;aa;p$: 1 ;" ";hh;" -Bet (Min. ";l$;"1";p$;" - Max.= All )" 1 ;" ";g$;" "; 1 ;" seven races. See how many"," winners you can pick." 1 ;" see what the odds are on the" 1 ;" next race." 1 ;" first race." 1 ;" back one horse in each race." 1 ;" all their money!" 1 ;" You have chosen 'p's " 1 ;" You have chosen '`'s " 1 ;" The final option is whether to have an initial stake and place bets in '`'s or 'p's. " 1 ;" Thank you." 1 ;" SELLERS PLATE " 1 ;" RAMTOP STAKES " 1 ;" RAINBOW STAKES " 1 ;" Oh dear, everyone has lost" 1 ;" NOVICES PLATE " 1 ;" Lets meet the bookmaker and" 1 ;" Do you want to start again?" 1 ;" CHALLENGE CUP " 1 ;" ""Press 'L' for 'Pounds' 1 ;" or 'n' for no" 1 ;" Your 'friendly' bookmaker"," 'Honest Clive' Spectrum will"," pay the full odds on the"," winner and 1/4 the odds on"," second place." 1 ;" Up to five players may make"," bets. Each player starts"," with `100 (or 100p), and may " 1 ;" There are 4 alternative 1 ;" That's the end of the day's racing." 1 ;" Press any key to see other 1 ;" Let's see how much you all have left!" 1 ;" 4) DEAD SERIOUS PUNTER 1 ;" 3) SERIOUS PUNTER 1 ;" 2nd - No.";p2;" 1 ;" 2) AMATEUR PUNTER 1 ;" 1) FUN 1 ;" Your Spectrum will be the"," bookmaker to take your bets." 1 ;" This is a race meeting of" 1 ;" THE DERBY " 1 ;" PLAYER 1 ,j,f,j,j,j 1 ,e,m,n,n,o 1 )="YOGI BEAR " 1 )="WINDY LAD " 1 )="WARGAME " 1 )="TORTOISE " 1 )="TOBAMORRA " 1 )="TEA-POT " 1 )="SUNNY BOY " 1 )="STAR WARS " 1 )="SPEEDY " 1 )="SIR GERARD" 1 )="SECRET SIN" 1 )="SEA PAGO " 1 )="ROYAL ANDY" 1 )="RED WINE " 1 )="RED RUM " 1 )="RAINBOW II" 1 )="QUEEN BEE " 1 )="POPSIS JOY" 1 )="PINK TIGER" 1 )="OVERCOAT " 1 )="ORANGE TIP" 1 )="NO CHANCE " 1 )="MISS SHAPE" 1 )="LUXURY " 1 )="LAME DUCK " 1 )="LADYFISH " 1 )="KING KONG " 1 )="JERRY CAN " 1 )="JASMINE " 1 )="HOBBYHORSE" 1 )="HARRY O " 1 )="GREENHORN " 1 )="GIGGLE " 1 )="FAIR MADAM" 1 )="EASY GO " 1 )="DR. WHO " 1 )="DAWN DIVER" 1 )="CANOODLE " 1 )="BEER BARON" 1 );" Total memory" 1 (es*o(eh,1 1 (ds*o(dh,1 1 (cs*o(ch,1 1 (bs*o(bh,1 1 (as*o(ah,1 1 (((es*o(eh,1 1 (((ds*o(dh,1 1 (((cs*o(ch,1 1 (((bs*o(bh,1 1 (((as*o(ah,1 1 "Max.10 letters",F$ 1 "If names correct - enter 'Y'",F$ 1 "How many players?",p 1 "Horse 5 ",z 1 "Horse 4 ",z 1 "Horse 3 ",z 1 "Horse 2 ",z 1 "Horse 1 ",z 1 versions available:-" 1 the odds." 1 or 'P' for 'Pence' 1 options available." 1 horses but shorter odds." 1 horses and long odds." 1 horses but YOU enter 1 enter the odds!" 1 YOU name the horses and 1 VERSION ";version;" CHOSEN. 1 VERSE 800 1 TORTOISE SPEEDY LAME DUCK DR. WHO NO CHANCE RED WINE BEER BARONOVERCOAT PINK TIGERYOGI BEAR RAINBOW IISUNNY BOY JASMINE JERRY CAN TOBAMORRA HOBBYHORSEKING KONG QUEEN BEE ROYAL ANDYRED RUM EASY GO DAWN DIVERCANOODLE LADYFISH MISS SHAPEPOPSIS JOYORANGE TIPTEA-POT WINDY LAD WARGAME SIR GERARDFAIR MADAMSTAR WARS LUXURY GREENHORN GIGGLE SECRET SINSEA PAGO HARRY O H 1 HORSE No STAKE " 1 COMPUTER RENTALS Ltd. 1982 1 CHORUS 900 1 3rd - No.";p3 1 2/7 enter 2 then 7